home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL36.PRO < prev    next >
Encoding:
Prolog Source  |  1979-12-31  |  214 b   |  11 lines
  1.               /* Program 36 */
  2. predicates
  3.     polyspiral(integer)
  4. goal
  5.     graphics(2,1,0),polyspiral(500).
  6. clauses
  7.     polyspiral(X):-
  8.         
  9.         
  10.         rward(X),right(62),Y=X+100,polyspiral(Y).
  11.